UC知道VB 改错`急急急！
来源：百度知道 编辑：UC知道 时间：2024/05/21 21:07:22
（这个加密算法是 定长换位加密）VB代码如下
Private Sub 解密_Click()
Dim i, j, n As Long
Dim k As String
Dim ks() As Long
Dim ee() As String * 1
Dim pp() As String * 1
k = Text2.Text
ReDim ks(Len(Text2.Text))
For i = 1 To Len(k)
m = 1
For j = 1 To Len(k)
If (Mid$(k, i, 1)) = (Mid$(k, j, 1)) And i > j Then m = m + 1
If (Mid$(k, i, 1)) > (Mid$(k, j, 1)) Then m = m + 1
Next j
ks(i) = m
Next i
n = Len(Text1.Text)
ReDim ee(n)
ReDim pp(n)
For i = 1 To n
ee(i) = Mid$(Text1.Text, i, l)
Next i
For i = 0 To n - 1 Step Len(k)
For j = 1 To Len(k)
pp(i + ks(j)) = ee(i + j)
Next j
Next i
Text1.Text = ""
For i = 1 To n
Text1.Text = Text1.Text + pp(i)
Next i
Label1.Caption = "明文:"
//加密算法没有问题``但是点击 解密 按扭后 结果是text1`一片空白``
估计问题出现在 解密算法里``
高手帮忙呀
这里给的只有解密算法 COMMAND1我已经在属性栏里改名字了 `应该不是 哪个问题
Private Sub 解密_Click()
Dim i, j, n As Long
Dim k As String
Dim ks() As Long
Dim ee() As String * 1
Dim pp() As String * 1
k = Text2.Text
ReDim ks(Len(Text2.Text))
For i = 1 To Len(k)
m = 1
For j = 1 To Len(k)
If (Mid$(k, i, 1)) = (Mid$(k, j, 1)) And i > j Then m = m + 1
If (Mid$(k, i, 1)) > (Mid$(k, j, 1)) Then m = m + 1
Next j
ks(i) = m
Next i
n = Len(Text1.Text)
ReDim ee(n)
ReDim pp(n)
For i = 1 To n
ee(i) = Mid$(Text1.Text, i, l)
Next i
For i = 0 To n - 1 Step Len(k)
For j = 1 To Len(k)
pp(i + ks(j)) = ee(i + j)
Next j
Next i
Text1.Text = ""
For i = 1 To n
Text1.Text = Text1.Text + pp(i)
Next i
Label1.Caption = "明文:"
//加密算法没有问题``但是点击 解密 按扭后 结果是text1`一片空白``
估计问题出现在 解密算法里``
高手帮忙呀
这里给的只有解密算法 COMMAND1我已经在属性栏里改名字了 `应该不是 哪个问题
楼上灌水
看看网上应该有加密的vb程序
对照一下好了
Private Sub 解密_Click() 有问题
看解密是那个按钮
如果是command1那么就是
Private Sub command1_Click()
针对问题补充:
属性要改,但是Private Sub command1_Click()
是固定的格式,不能写成Private Sub 解密_Click() .
Private Sub 解密_Click()-->Private Sub Command1_Click()
Command1='解密'(或最先在窗口里的属性里将Command1的属性名改为“解密”)
看看这个Private Sub
我也不会的啦